﻿Module Module1
  Sub Main()

    ' stringa
    Dim elemento1 As New ElementoGenerico(Of String)
    elemento1.valore = "Questa è una stringa"
    Console.WriteLine(
      "Tipo: " + elemento1.GetType.ToString +
      " - " + elemento1.valore)

    ' numero intero
    Dim elemento2 As _
        New ElementoGenerico(Of Integer)
    elemento2.valore = 256
    Console.WriteLine(
      "Tipo: " + elemento2.GetType.ToString +
      " - " + elemento2.valore.ToString)

    Console.ReadLine()

  End Sub
End Module
